COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002
C00004 00003	LOKBLK:'E     '↔'SEG   '↔0↔0
C00005 ENDMK
C⊗;

OPDEF INIERR [1B8]		;ERROR UUO FOR SEGMENT GETTING

	JSR KEEPAC
S:	JSR KEEPAC		;ENTRY -1 TO +2
	JSR KEEPAC
	JSR KEEPAC
KEEPAC:	0
	MOVEM 17,INIACS+17	;SAVE INITIAL ACS
	MOVEI 17,INIACS
	BLT 17,INIACS+16
	RESET
	SOS 17,KEEPAC		;ADDRESS WHERE WE ENTERED
	SKIPE JOBHRL		;ALREADY HAVE AN UPPER?
	 JRST BEG-S(17)		;YES
	LINKUP			;NO.  BUT DOES SOMEONE ELSE HAVE IT?
	 SKIPA 1,[JRST TUUOH]	;NO.  LOAD TEMP UUO HANDLER
	 JRST BG-S(17)		;YES
	MOVEM 1,JOB41		;TEMP UUO HANDLER
	INIT CH,17		;DUMP MODE
	'SYS   '
	0
	INIERR [ASCIZ/CANT INIT SYS:/]
	LOOKUP CH,[LOKBLK:'E     '↔'SEG   '↔0↔0]
	 INIERR [ASCIZ/CANT LOOKUP E.SEG/]
	MOVS 1,LOKBLK+3		;-SIZE
	MOVN 1,1
	ADD 1,JOBFF
	CORE 1,
	 INIERR [ASCIZ/NO CORE TO READ SEGMENT/]
	SOS 1,JOBFF		;CONTRUCT IOWD
	HLL 1,LOKBLK+3
	SETZ 2,
	IN CH,1
	 AOSA 1,JOBFF		;CORRECT FOR THE SOS
	 INIERR [ASCIZ/ERROR READING SEGMENT/]
	RELEASE CH,
	TLO 1,400000		;WRITE PROTECT
	HRRI 1,-1(1)		;LAST ADDR IN LOWER
	REMAP 1,
	 INIERR [ASCIZ/REMAP FAILED/]
	MOVSI 1,'E  '
	SETNM2 1,
	 CAI
	JRST BEG-S(17)

TUUOH:	OUTSTR [BYTE (7) 15,12]
	OUTSTR @JOBUUO
	EXIT

	LIT
LOKBLK:'E     '↔'SEG   '↔0↔0

	INIT CHAN,17
	SIXBIT /SYS/	;SIXBIT/DSK/ to test
	0
	JRST ESTERR
	ENTER CHAN,LOKBLK
	JRST ESTERR
	MOVE T,JOBHRL
	SUBI T,377777
	MOVNI T,(T)
	MOVSI T,(T)
	SETZ T+1,
	OUT CHAN,T
	SKIPA
	JRST ESTERR
	RELEAS CHAN,



	MOVEI T,1
	LTHUUO T,
	JFCL